home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / form.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  436 b   |  16 lines
  1. #include "../xt/xt.h"
  2. #include <X11/Xaw/Form.h>
  3.  
  4. static Object P_Form_Do_Layout (w, enable) Object w, enable; {
  5.    Check_Widget_Class (w, formWidgetClass);
  6.     Check_Type (enable, T_Boolean);
  7.     XawFormDoLayout (WIDGET(w)->widget, EQ (enable, True));
  8.     return Void;
  9. }
  10.  
  11. init_form () {
  12.     XtResourceList r = 0;
  13.     Define_Class ("form", formWidgetClass, r, 0);
  14.     Define_Primitive (P_Form_Do_Layout, "form-do-layout", 2, 2, EVAL);
  15. }
  16.